home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / casterli.arc / CASE.4TH < prev    next >
Text File  |  1986-04-26  |  512b  |  19 lines
  1. ( Case Words )
  2.  
  3. : <OF> OVER = IF DROP R> 2 + >R ELSE R> DUP @ + >R THEN ;
  4.  
  5. : CASE ?COMP CSP @ !CSP 4 ;  IMMEDIATE
  6.  
  7. : OF 4 ?PAIRS COMPILE <OF> HERE 0 , 5 ; IMMEDIATE
  8.  
  9. : ENDOF 5 ?PAIRS COMPILE BRANCH HERE 0 , SWAP 2 [COMPILE]
  10.   THEN 4 ; IMMEDIATE
  11.  
  12. : ENDCASE 4 ?PAIRS COMPILE DROP BEGIN SP@ CSP @ <> WHILE 2
  13.   [COMPILE] THEN REPEAT CSP ! ; IMMEDIATE
  14.  
  15. ( CASE   1 OF do something ENDOF {repeat as necessary} )
  16. ( may do something if no case match ENDCASE )
  17.  CSP ! ; IMMEDIATE
  18.  
  19. ( CASE   1 OF do somet